home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / patchfix / dbpatch / splash.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-05  |  1.6 KB  |  48 lines
  1. '-----------------------------------------------------------------------
  2. ' IPS MDB Patch Tool, Version 1.0
  3. ' ⌐Copyright 1995 (Unpublished) Integrated Planning Systems, inc.
  4. ' All Rights Reserved.
  5. '
  6. ' Integrated Planning Systems Proprietary Rights are included in this
  7. ' Software, in the data or documentation relating thereto, and in the
  8. ' information disclosed therein.  Neither this software, regardless of
  9. ' the form in which it exists, nor such data or information may be
  10. ' used by or disclosed to others for any purpose except as specifically
  11. ' authorized in writing by Integrated Planning Systems, inc.
  12. '
  13. ' This software was developed exclusively at private expense
  14. ' as defined in DFARS 252.227-7013(a)(12).
  15. '
  16. ' This software was developed under IPS General and Administrative
  17. ' Account A1035LAS.
  18. '-----------------------------------------------------------------------
  19. Option Explicit
  20.  
  21. Sub Main ()
  22.    Dim endTime As Variant
  23. 'Compute time to close start-up form
  24.    endTime = Now + TimeValue("00:00:10")
  25. 'Show start-up form with Close button disabled
  26.    AboutBox.CloseButton.Visible = False
  27.    AboutBox.Show
  28. 'Make start-up form a top-most window and allow it to paint itself
  29.    Call SetWindowPos(AboutBox.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
  30.    AboutBox.Refresh
  31.  
  32. 'Show main form and disable to prevent events
  33.    MainForm.Enabled = False
  34.  
  35. 'Wait until start-up form's time is up
  36.    Do While Now < endTime
  37.       DoEvents
  38.    Loop
  39.  
  40. 'Unload start-up form
  41.    Unload AboutBox
  42.  
  43.    'Enable main form
  44.    MainForm.Enabled = True
  45.    MainForm.Show
  46. End Sub
  47.  
  48.